#KEY: M-l
#NAME: lsfnc

unless(%ufncs){
    &mess("No user function loaded\n");
    return;
}
foreach my $k (keys(%ufncs)){
    my $p=$ufncs{$k}->[0];
    &mess(&dec_kb($k).":\t\t".($$p)."\n");
}

1;
